Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/UNIVERSE/SHARED.DIR/01018_Script_sbtVideo

Text File | 1995-11-21 | 1KB | 56 lines

-- standard button trios modified for the Videos...
--property myNormal, myChannel, myScript, ancestor

--on birth me, sp, sc
--  set ancestor to birth(script "sb",sp,sc)
--  set myScript to sc
--  set myChannel to integer(sp)
--  return me
--end

--change appearance
on sbtvrollo myChannel, myRollover
  global gsbtvMyNormal
  --put ">>>my rollover sbtVideo rollover"

  puppetSprite myChannel,TRUE
  set gsbtvMyNormal = the castNum of sprite myChannel

  set nm = objectLabel() & "FR.PIC"

  set the castNum of sprite myChannel to the number of cast nm
  updateStage
  --puppetSprite myChannel, false
end

on sbtvpress theLine
  set myChannel = integer(item 4 of theLine)

  --put ">>>my rollover sbtVideo press"

  puppetSprite myChannel,TRUE

  set nm = objectLabel() & "FP.PIC"

  set the castNum of sprite myChannel to the number of cast nm
  updateStage
  puppetSprite myChannel, false
end

on sbtvnorm theLine
  global gsbtvMyNormal
  --put ">>>my rollover sbtVideo norm"

  set myChannel = integer(item 4 of theLine)

  puppetSprite myChannel,TRUE
  set the castNum of sprite myChannel to gsbtvMyNormal
  puppetSprite myChannel, false
  updateStage
end

on sbtvdoScript theLine
  set command = item 7 of theLine
  do command
end